home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / mw2demo.dir / 00021_Play.ls < prev    next >
Encoding:
Text File  |  1995-12-11  |  773 b   |  37 lines
  1. on mouseDown
  2.   global gXframe
  3.   if the colorDepth <> 8 then
  4.     set gXframe to marker(0)
  5.     go("BadBitDepth")
  6.   else
  7.     puppetSound("PlayB")
  8.     puppetSprite(14, 1)
  9.     set the castNum of sprite 14 to 42
  10.     updateStage()
  11.     startTimer()
  12.     repeat while the timer < 15
  13.       nothing()
  14.     end repeat
  15.     set the castNum of sprite 14 to 43
  16.     updateStage()
  17.     startTimer()
  18.     repeat while the timer < 15
  19.       nothing()
  20.     end repeat
  21.     set the castNum of sprite 14 to 42
  22.     updateStage()
  23.     startTimer()
  24.     repeat while the timer < 15
  25.       nothing()
  26.     end repeat
  27.     set the castNum of sprite 14 to 43
  28.     updateStage()
  29.     puppetSprite(14, 0)
  30.     repeat while the soundBusy of 1
  31.       nothing()
  32.     end repeat
  33.     open("actvpass 2")
  34.     quit()
  35.   end if
  36. end
  37.